Attribute VB_Name = "submodule"
Dim i As Long
Sub settable(table As PictureBox, mysize As Long)

End Sub
Sub setsheet(sheet As PictureBox, sheetname As String, Optional mysize As Long = 0)
    sheet.AutoRedraw = True
    sheet.Cls
    sheet.BackColor = RGB(22, 22, 22)
    i = 0
    Do
        tablemain.mylabel.Caption = Left(sheetname, Len(sheetname) - i)
        i = i + 1
    Loop While tablemain.mylabel.Width > sheet.Width - 500
    If tablemain.mylabel.Caption <> sheetname Then
        tablemain.mylabel.Caption = tablemain.mylabel.Caption + "..."
        sheet.ToolTipText = sheetname
    End If
    Select Case mysize
        Case 0
            sheet.FontBold = False
            sheet.Line (sheet.Width - 195, 0)-(sheet.Width, sheet.Height), RGB(0, 88, 0), BF
        Case 1
            sheet.FontBold = True
            sheet.Line (sheet.Width - 195, 0)-(sheet.Width, sheet.Height), RGB(0, 200, 0), BF
    End Select
    tablemain.mylabel.FontSize = 12
    sheet.CurrentX = 0
    sheet.CurrentY = 0
    sheet.ForeColor = &H8000000F
    sheet.Height = tablemain.mylabel.Height
    sheet.FontSize = tablemain.mylabel.FontSize
    sheet.Print " " & tablemain.mylabel.Caption
End Sub

